home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 July
/
Ahoy_Magazine_88-07_1988_Double_L.d64
/
vari-scan 128
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
65 lines
10 rem *** vari-scan 128 *** buck childress ***
20 rem *** p.o. box 13575 salem, or 97309 ***
30 printchr$(147)"loading and checking data line:":j=4864
40 forb=0to11:reada
50 ifb=0thenl=peek(66)*256+peek(65):printchr$(19)tab(31)l:print
60 ifa<0ora>255then80
70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
80 print"error in data line:"l:end
90 x=0:j=j+12:ifd<636then40
100 print"the data is ok...":print
110 print"sys 4864 to activate...":end
120 data104,104,32,129,146,79,78,0,169,29,162,19,1051
130 data141,2,3,142,3,3,169,69,141,0,3,142,818
140 data1,3,76,236,20,169,0,162,19,133,251,141,1211
150 data0,255,134,252,169,251,141,185,2,162,1,160,1712
160 data0,177,251,32,119,255,230,251,208,238,230,252,2243
170 data165,252,201,22,144,230,76,198,77,173,0,2,1540
180 data201,95,208,22,32,129,146,79,70,70,0,169,1221
190 data198,162,77,141,2,3,142,3,3,169,63,76,1039
200 data20,19,201,65,144,4,201,91,144,3,76,63,1031
210 data77,32,250,81,162,0,160,0,140,120,21,140,1183
220 data118,21,189,1,2,240,47,48,153,201,32,208,1260
230 data3,232,208,242,72,173,120,21,208,10,192,0,1481
240 data240,6,104,201,48,176,238,72,104,153,1,2,1345
250 data201,48,176,10,141,120,21,201,40,208,3,141,1310
260 data118,21,232,200,208,204,153,1,2,165,45,166,1515
270 data46,133,251,134,252,134,254,160,0,177,45,133,1719
280 data253,173,16,18,174,17,18,133,65,134,66,152,1219
290 data145,65,200,208,251,141,125,21,141,127,21,32,1477
300 data92,21,160,2,177,251,200,209,251,208,7,201,1779
310 data0,208,3,76,194,20,170,177,251,141,123,21,1384
320 data142,124,21,160,3,32,92,21,141,126,21,173,1056
330 data127,21,240,8,162,0,142,127,21,32,247,20,1147
340 data200,177,251,208,3,76,162,20,201,131,240,4,1673
350 data201,143,208,3,76,165,20,201,34,208,7,174,1440
360 data126,21,240,212,208,207,174,126,21,208,208,201,1952
370 data65,144,22,201,91,176,200,141,127,21,174,119,1481
380 data21,208,55,174,122,21,224,2,144,51,76,8,1106
390 data20,174,127,21,240,190,201,58,176,173,201,48,1629
400 data176,228,201,32,240,178,201,36,240,21,201,37,1791
410 data240,17,201,40,240,13,201,41,240,9,201,44,1487
420 data208,29,174,118,21,240,24,141,119,21,174,122,1391
430 data21,157,128,21,238,122,21,201,41,208,11,173,1342
440 data118,21,208,3,206,122,21,76,251,19,201,40,1286
450 data208,17,232,142,121,21,173,118,21,208,8,169,1438
460 data0,141,127,21,141,122,21,76,8,20,32,247,956
470 data20,32,95,21,166,253,165,254,240,20,134,251,1651
480 data133,252,160,0,177,253,72,200,177,253,133,254,2064
490 data104,133,253,76,218,19,173,125,21,208,37,169,1536
500 data0,141,0,255,32,129,146,13,18,86,65,82,967
510 data73,65,66,76,69,32,73,83,32,78,79,84,810
520 data32,73,78,32,85,83,69,46,46,46,13,0,603
530 data169,0,141,0,2,141,0,255,76,55,77,162,1078
540 data0,189,0,2,240,18,201,92,208,6,236,121,1313
550 data21,76,19,21,221,128,21,208,79,232,208,233,1467
560 data236,122,21,208,71,104,104,169,0,141,0,255,1431
570 data173,125,21,208,29,32,129,146,13,18,86,65,1045
580 data82,73,65,66,76,69,32,73,83,32,73,78,802
590 data32,85,83,69,46,46,46,13,13,0,32,129,594
600 data146,76,73,78,69,58,32,0,173,123,21,174,1023
610 data124,21,32,50,142,169,13,32,210,255,141,125,1314
620 data21,76,165,20,169,0,170,157,128,21,232,208,1367
630 data250,141,119,21,141,121,21,141,122,21,169,63,1330
640 data141,0,255,169,0,96,0,0,65,72,83,0,881